home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 81 / 64er_Magazin_Sonderheft_81_19xx_Markt__Technik_de_Side_B.d64 / play it! (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  6KB  |  217 lines
  1. 1000 iff1=0thenf1=1:load"pi.chars   .z",8,1
  2. 1010 iff1=1thenf1=2:load"pi.code    .c",8,1
  3. 1498 :
  4. 1499 :
  5. 1500 rem   ***    init    ***
  6. 1501 :
  7. 1502 :
  8. 1510 poke55,255:poke56,115:clr
  9. 1520 poke56576,150:poke53248+24,223:poke648,116
  10. 1530 poke788,52
  11. 1540 ba=12*4096:z=0:z$=" 1":poke53280,0:poke53281,6:print"[147][158]"+chr$(8)
  12. 1998 :
  13. 1999 :
  14. 2000 rem   *** hauptprogramm  ***
  15. 2001 :
  16. 2002 :
  17. 2010 z=0:poke830,z:z$=" 1"
  18. 2020 print"[147][144] [209][209][209][209]  [209]       [209]   [209]   [209]      [209] [209][209][209][209][209] [209]
  19. 2030 [153]" (NULL)   (NULL) (NULL)      (NULL) (NULL)  (NULL)   (NULL)      (NULL)   (NULL)   (NULL)
  20. 2040 print" [209]   [209] [209]     [209]   [209]  [209] [209]       [209]   [209]   [209]
  21. 2050 [153]" (NULL)(NULL)(NULL)(NULL)  (NULL)     (NULL)(NULL)(NULL)(NULL)(NULL)   (NULL)        (NULL)   (NULL)   (NULL)
  22. 2060 print" [209]     [209]     [209]   [209]   [209]        [209]   [209]   [209]
  23. 2070 [153]" (NULL)     (NULL)     (NULL)   (NULL)   (NULL)        (NULL)   (NULL)
  24. 2080 print" [209]     [209][209][209][209][209] [209]   [209]   [209]        [209]   [209]   [209]
  25. 2090 [158]ba[170]21,9,9:[153]"idee by thomas kniep"
  26. 2100 [158]ba[170]21,6,12:[153]"programmed and designed by"
  27. 2110 [158]ba[170]21,12,14:[153]"thomas haukapsys"
  28. 2120 [158]ba[170]21,8,17:[153]"1 - cards editor"
  29. 2130 [158]ba[170]21,8,18:[153]"2 - playfield editor"
  30. 2140 [158]ba[170]21,8,19:[153]"3 - charakterset editor"
  31. 2150 [158]ba[170]21,3,21:[153]"enter choise: "
  32. 2155 [158]ba[170]21,20,24:[153]"stop^wait 1986 by t. haukapsys";
  33. 2160 [158]ba[170]24,1,17,21,"",h$,"123":[139]h$[178]""[167]2160
  34. 2170 [145][197](h$)[141]5000,10000,15000
  35. 2200 [137]2010
  36. 4998 :
  37. 4999 :
  38. 5000 [143]   ***  karteneditor  ***
  39. 5001 :
  40. 5002 :
  41. 5010 [139]fk[178]0[167][141]5500
  42. 5015 n[178]0
  43. 5020 [153]"sysedit:   number ";n[170]1;"     zeichensatz:"z$"    "
  44. 5030 [158]ba[170]27,n
  45. 5040 [153]"command:  c,d,g,k,l,n,p,s,x,z          "
  46. 5050 [161]f$:[139]f$[178]""[167]5050
  47. 5055 [139]f$[178]"c"[167][141]5300
  48. 5058 [139]f$[178]"d"[167][141]20000
  49. 5060 [139]f$[178]"g"[167][141]5700
  50. 5070 [139]f$[178]"k"[167][158]ba[170]30,n
  51. 5080 [139]f$[178]"l"[167][141]5800
  52. 5090 [139]f$[178]"n"[167][141]5500
  53. 5100 [139]f$[178]"p"[167][141]5120
  54. 5110 [139]f$[178]"s"[167][141]5900
  55. 5111 [139]f$[178]"x"[167][142]
  56. 5112 [139]f$[178]"z"[167][141]10400
  57. 5113 [139]f$[178]""[175]n[179]mn[167]n[178]n[170]1
  58. 5114 [139]f$[178]""[175]n[177]0[167]n[178]n[171]1
  59. 5115 [137]5020
  60. 5120 [153]"print:   1-equal    2-not equal:      "
  61. 5130 [158]ba[170]24,1,33,0,"",w$,"12":[139]w$[178]""[167][142]
  62. 5140 [139]w$[178]"1"[167]5200
  63. 5150 [153]"print:    first:      last:           "
  64. 5160 [158]ba[170]24,2,17,0,"",a$,"1234567890":[139]a$[178]""[167][142]
  65. 5165 a[178][197](a$):[139]a[179]1[176]a[177]mn[167]5160
  66. 5170 [158]ba[170]24,2,28,0,"",a$,"1234567890":[139]a$[178]""[167][142]
  67. 5175 b[178][197](a$):[139]b[179]a[176]b[177]mn[167]5170
  68. 5180 [137]5250
  69. 5200 [153]"print:  card nr:      number:        "
  70. 5210 [158]ba[170]24,2,17,0,"",a$,"1234567890":[139]a$[178]""[167][142]
  71. 5215 a[178][197](a$):[139]a[179]1[176]a[177]mn[167]5210
  72. 5220 [158]ba[170]24,2,30,0,"",a$,"1234567890":[139]a$[178]""[167][142]
  73. 5225 b[178][197](a$):[139]b[179]1[176]b[177]100[167]5220
  74. 5230 b[178]b[170]129
  75. 5250 [153]"print:   o.k.:                       "
  76. 5260 [158]ba[170]24,1,15,0,"y",w$,"yn":[139]w$[178]"y"[167][158]ba[170]39,a[171]1,b[171]1
  77. 5270 [142]
  78. 5300 [153]"copy:   source:      target:          "
  79. 5310 [158]ba[170]24,2,16,0,"",a$,"1234567890":[139]a$[178]""[167][142]
  80. 5315 a[178][197](a$):[139]a[179]1[176]a[177]mn[170]1[167]5310
  81. 5320 [158]ba[170]24,2,29,0,"",a$,"1234567890":[139]a$[178]""[167][142]
  82. 5325 b[178][197](a$):[139]b[179]1[176]b[177]mn[170]1[167]5320
  83. 5330 [158]ba[170]42,a[171]1,b[171]1
  84. 5340 [142]
  85. 5500 [153]"loadload new cards:"
  86. 5501 [158]ba[170]24,1,16,3,"",a$,"ny":[139]a$[178]""[175]fk[178]1[167][142]
  87. 5502 fk[178]1
  88. 5503 [139]a$[178]"y"[167][141]5800:[145][182](a[177]1)[170]1[137]5890,5500
  89. 5504 [153]"load enter new width of rows and columns"
  90. 5505 [158]ba[170]21,1,10:[153]"columns     (10-37):"
  91. 5510 [158]ba[170]21,1,12:[153]"rows        (5-24) :"
  92. 5520 [158]ba[170]21,1,15:[153]"maximum of cards   :"
  93. 5530 [158]ba[170]21,1,20:[153]"o.k.:"
  94. 5540 [158]ba[170]24,2,22,10,"",a$,"1234567890"
  95. 5545 xk[178][197](a$):[139]xk[179]10[176]xk[177]37[167]5540
  96. 5550 [158]ba[170]24,2,22,12,"",a$,"1234567890"
  97. 5560 yk[178][197](a$):[139]yk[179]5[176]yk[177]24[167]5550
  98. 5570 mn[178][181](16384[173]xk[173]yk)[171]1:[139]mn[177]100[167]mn[178]99
  99. 5580 [158]ba[170]21,22,15:[153]mn:mn[178]mn[171]1
  100. 5590 [158]ba[170]24,1,7,20,"y",w$,"yn":[139]w$[179][177]"y"[167]5500
  101. 5600 n[178]0:[151]831,xk[171]1:[151]832,yk[171]1:[151]833,mn
  102. 5610 [129]i[178]0[164]mn:[158]ba[170]30,i:[130]:[142]
  103. 5700 [153]"goto:   card nr:                     "
  104. 5720 [158]ba[170]24,2,17,0,"",a$,"1234567890":a[178][197](a$):[139]a[179]1[176]a[177]mn[170]1[167]5720
  105. 5730 n[178]a[171]1:[142]
  106. 5740 [159]1,8,15:[141]5750:[160]1:[142]
  107. 5750 [132]1,a,a$,b,c:[139]a[178]0[167][142]
  108. 5760 [160]2:[160]1
  109. 5770 [153]"disk result:                          "
  110. 5780 [153]"";a;a$;b;c
  111. 5790 [151]198,0:[146]198,255:[151]198,0:[142]
  112. 5800 [143] kartenload
  113. 5810 [141]10500
  114. 5820 [159]1,8,15:[159]2,8,2,n$[170]".h,u,r"
  115. 5830 [141]5750:[139]a[177]1[167]5890
  116. 5840 [161]#2,x$:xk[178][198](x$[170][199](0))
  117. 5850 [161]#2,y$:yk[178][198](y$[170][199](0))
  118. 5855 [161]#2,m$:mn[178][198](m$[170][199](0))
  119. 5857 [160]2:[160]1
  120. 5860 [151]831,xk[171]1:[151]832,yk[171]1:[151]833,mn
  121. 5870 [141]5610
  122. 5880 [158]ba[170]36,n$[170]".k",8
  123. 5890 [142]
  124. 5900 [143] kartensave
  125. 5910 [141]10500
  126. 5920 [159]1,8,15:[159]2,8,2,n$[170]".h,u,w"
  127. 5930 [141]5750:[139]a[177]1[167]5890
  128. 5940 [152]2,[199](xk)[199](yk)[199](mn);
  129. 5950 [160]2:[160]1
  130. 5960 [158]ba[170]33,n$[170]".k",8
  131. 5970 [137]5890
  132. 9998 :
  133. 9999 :
  134. 10000 [143]  ***  spielplaneditor  ***
  135. 10001 :
  136. 10002 :
  137. 10005 [139]fp[178]0[167]fp[178]1:[158]ba[170]3
  138. 10010 [153]"sysedit:                 zeichensatz:"z$"    "
  139. 10020 [158]ba
  140. 10030 [153]"syscommand:   c,d,g,k,l,p,r,s,x,z        "
  141. 10040 [161]f$:[139]f$[178]""[167]10040
  142. 10050 [139]f$[178]"c"[167][158]ba[170]9
  143. 10055 [139]f$[178]"d"[167][141]20000
  144. 10060 [139]f$[178]"g"[167][141]10300
  145. 10070 [139]f$[178]"k"[167][158]ba[170]3
  146. 10080 [139]f$[178]"l"[167][141]10500:[158]ba[170]15,n$[170]".p",8,1:[141]5740
  147. 10090 [139]f$[178]"p"[167][141]10200
  148. 10100 [139]f$[178]"r"[167][158]ba[170]6
  149. 10110 [139]f$[178]"s"[167][141]10500:[158]ba[170]12,n$[170]".p",8:[141]5740
  150. 10120 [139]f$[178]"x"[167][142]
  151. 10130 [139]f$[178]"z"[167][141]10400
  152. 10140 [137]10010
  153. 10200 [153]"print:     large or small:            "
  154. 10210 [158]ba[170]24,1,27,0,"",a$,"ls"
  155. 10220 [139]a$[178]""[167][142]
  156. 10230 [139]a$[178]"l"[167][158]ba[170]18,0
  157. 10240 [139]a$[178]"s"[167][158]ba[170]18,128
  158. 10250 [142]
  159. 10300 [153]"enter x-koordinate:    y-koordinate:   "
  160. 10330 [158]ba[170]24,2,20,0,"",x$,"1234567890":x[178][197](x$):[139]x$[178]""[167][142]
  161. 10340 [158]ba[170]24,2,37,0,"",y$,"1234567890":y[178][197](y$):[139]y$[178]""[167][142]
  162. 10350 [151]828,x:[151]829,y:[142]
  163. 10400 z[178]128[171]z:z$[178][196]([182]((z[178]128))[170]1):[151]830,z:[142]
  164. 10500 [153]"enter name:                           "
  165. 10510 [158]ba[170]24,8,12,0,"",n$,"abcdefghijklmnopqrstuvwxyz 1234567890-.[\]@"
  166. 10520 n$[178][200]("@:pi."[170]n$[170]"        ",13)
  167. 10530 [142]
  168. 14998 :
  169. 14999 :
  170. 15000 [143]  ***  zeichensatzeditr  ***
  171. 15001 :
  172. 15002 :
  173. 15010 [153]"edit:       charaktercode:";nc;"cmd       "
  174. 15020 [158]ba[170]45,nc
  175. 15030 [153]"command:  c,d,g,k,l,s,x               "
  176. 15040 [161]f$:[139]f$[178]""[167]15040
  177. 15042 [139]f$[178]""[175]nc[177]0[167]nc[178]nc[171]1
  178. 15044 [139]f$[178]""[175]nc[179]255[167]nc[178]nc[170]1
  179. 15046 [139]f$[178]"c"[167][141]15300
  180. 15048 [139]f$[178]"d"[167][141]20000
  181. 15050 [139]f$[178]"g"[167][141]15100
  182. 15055 [139]f$[178]"k"[167][158]ba[170]54,nc
  183. 15060 [139]f$[178]"l"[167][141]10500:[158]ba[170]51,n$[170]".z",8:[141]5740
  184. 15070 [139]f$[178]"s"[167][141]10500:[158]ba[170]48,n$[170]".z",8:[141]5740
  185. 15080 [139]f$[178]"x"[167][142]
  186. 15090 [137]15010
  187. 15100 [153]"goto charakter:   number:             "
  188. 15110 [158]ba[170]24,3,28,0,"",a$,"1234567890":a[178][197](a$):[139]a[179]0[176]a[177]255[167]15100
  189. 15120 nc[178]a:[142]
  190. 15300 [153]"copy:   source:      target:          "
  191. 15310 [158]ba[170]24,3,16,0,"",a$,"1234567890":a[178][197](a$):[139]a[179]0[176]a[177]255[167]2310
  192. 15320 [158]ba[170]24,3,29,0,"",a$,"1234567890":b[178][197](a$):[139]b[179]0[176]b[177]255[167]2310
  193. 15330 [158]ba[170]57,b,a
  194. 15340 [142]
  195. 19998 :
  196. 19999 :
  197. 20000 [143]  ***  diskettenverwaltung  ***
  198. 20001 :
  199. 20002 :
  200. 20010 [153]"disk:     1-directory   2-command:    "
  201. 20020 [158]ba[170]24,1,35,0,"",f$:[139]f$[178]""[167][142]
  202. 20030 [145][197](f$)[141]20100,20200
  203. 20040 [142]
  204. 20100 [143] directory-anzeigen
  205. 20105 [153]"load"
  206. 20110 [159]1,8,0,"$":[161]#1,a$,a$
  207. 20120 [161]#1,a$,b$:[139]st[178]64[167][160]1:[137]20160
  208. 20130 [161]#1,a$,b$:[153][198](a$[170][199](0))[170]256[172][198](b$[170][199](0));
  209. 20140 [161]#1,a$:[153]a$;:[139]a$[179][177]""[167]20140
  210. 20150 [153]:[137]20120
  211. 20160 [151]198,0:[146]198,255:[151]198,0:[142]
  212. 20200 [143] disk-command senden
  213. 20210 [153]"enter command:                        "
  214. 20220 [158]ba[170]24,23,15,0,"",a$,"abcdefghijklmnopqrstuvwxyz 1234567890:*[]\@-."
  215. 20230 [139]a$[178]""[167][142]
  216. 20240 [159]1,8,15,a$:[141]5750:[160]1:[142]
  217.